home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / misc / modans20.lha / MailBox.rexx < prev    next >
OS/2 REXX Batch file  |  1994-03-12  |  514b  |  23 lines
  1. /* MailBox-program for ModAns v 2.0 */
  2.  
  3. options results
  4.  
  5. address MODANS.0
  6.  
  7. do forever
  8.     'waitconnect'
  9.     if rc=5 then iterate
  10.     'sendtextfile Login.txt'
  11.     'send Would you like to leave a message? (y/N)'
  12.     'getstring 5'
  13.     if upper(left(result,1))='Y' then do
  14.         tid=time('N')
  15.         parse var tid hour ':' min ':'
  16.         'send' '0a0a0d'x
  17.         'edittext' date('s') || '_' || hour || min || '.txt'
  18.         'send' '0a0a0d'x || 'Your text has been archived among the others on my hard disk.' '0a0d'x
  19.     end
  20.     'sendtextfile Logout.txt'
  21.     'hangup'
  22. end
  23.